home *** CD-ROM | disk | FTP | other *** search
/ Popular Request / By Popular Request (Arsenal Computer)(SysOptics Distribution System).ISO / amiga2 / gblnkr30.lha / GBlanker / Install < prev    next >
Text File  |  1994-04-06  |  7KB  |  214 lines
  1. ;
  2. ; Garshneblanker Installation Script $VER:Garshneblanker 37.4 (31.10.93)
  3. ;
  4.  
  5. (set oldUserLevel (user 3))
  6. (message
  7.  "\nWelcome to the Garshneblanker 3.0 installer script.\n\n"
  8.  "This version of Garshneblanker is SO easy to use that there is NO documentation. Simply follow the installer "
  9.  "script's instructions and the rest is intuitive. Once Garshneblanker is running, you can simply press the popup "
  10.  "hotkey (which you'll specify later) to bring up its new intuitive user interface. The rest will come naturally.\n"
  11.  "\nI hope Garshneblanker 3.0 brings you weeks of blanked screen bliss (until 3.1 comes out :)."
  12.  )
  13. (user oldUserLevel)
  14.  
  15. (set @default-dest "SYS:WBStartup")
  16. (set @default-popkey "Alt Help")
  17. (set @default-blankkey "Alt Delete")
  18. (set @default-timeout 180)
  19.  
  20. (set @default-dest
  21.      (askdir
  22.       (prompt "Where would you like Garshneblanker installed?")
  23.       (help "The WBStartup directory on your boot disk is likely the best place "
  24.             "to put blanker. This will insure that Garshneblanker is run "
  25.             "automatically when you boot your computer."
  26.             )
  27.       (default @default-dest)
  28.       )
  29.      )
  30.  
  31. (working "Checking for previously installed version of Garshneblanker.")
  32.  
  33. (set newBlanker (tackon (pathonly @icon) "Garshneblanker"))
  34. (if (exists (tackon @default-dest "Blanker"))
  35.     (set oldBlanker (tackon @default-dest "Blanker"))
  36.     (set oldBlanker (tackon @default-dest "Garshneblanker"))
  37.     )
  38.  
  39. (set newBlankerVersion (getversion newBlanker))
  40. (set oldBlankerVersion (getversion oldBlanker))
  41.  
  42. (set oldVer (/ oldBlankerVersion 65536))
  43. (set oldRev (- oldBlankerVersion (* oldVer 65536)))
  44.  
  45. (set newVer (/ newBlankerVersion 65536))
  46. (set newRev (- newBlankerVersion (* newVer 65536)))
  47.  
  48. (if (<= newBlankerVersion oldBlankerVersion)
  49.     (if (NOT
  50.          (askbool
  51.           (prompt ("Version %ld.%ld of Garshneblanker already installed. Install version %ld.%ld?" oldVer oldRev
  52.                                                                                                    newVer newRev))
  53.           (default 0)
  54.           (help "An equal or newer version of Garshneblanker is already installed. "
  55.                 "If you would like to install Garshneblanker anyhow, click 'Yes'. "
  56.                 "If you don't want to install Garshneblanker, click 'No'.")
  57.           )
  58.          )
  59.         (abort "Equal or newer version of Garshneblanker already installed. Aborting.")
  60.         )
  61.     )
  62.  
  63. (delete oldBlanker)
  64. (delete (tackon oldBlanker ".info"))
  65.  
  66. (if
  67.  (< (getversion "LIBS:reqtools.library") (getversion (tackon (pathonly @icon) "reqtools.library")))
  68.  (copyfiles
  69.   (source (pathonly @icon))
  70.   (dest "LIBS:")
  71.   (choices "reqtools.library")
  72.   )
  73.  )
  74.  
  75. (copyfiles
  76.  (prompt ("Copying Garshneblanker to %s" @default-dest))
  77.  (help @copyfiles-help)
  78.  (source (pathonly @icon))
  79.  (dest @default-dest)
  80.  (choices "Garshneblanker")
  81.  )
  82.  
  83. (select
  84.  (askchoice
  85.   (prompt "Which icon would you like to have installed for Garshneblanker?")
  86.   (choices "Magic Workbench Icon" "Standard Workbench Icon")
  87.   (help "The magic workbench icon is simply a larger, 8 color icon. The standard icon follows Commodore's "
  88.         "4 color and size standard.")
  89.   )
  90.  (set @icon-choice "Garshneblanker_Magic")
  91.  (set @icon-choice "Garshneblanker_Std")
  92.  )
  93.  
  94. (copyfiles
  95.  (prompt ("Copying icon for %s" @default-dest))
  96.  (help @copyfiles-help)
  97.  (source (pathonly @icon))
  98.  (dest @default-dest)
  99.  (choices @icon-choice)
  100.  )
  101.  
  102. (rename (tackon @default-dest @icon-choice) (tackon @default-dest "Garshneblanker.info"))
  103. (delete (tackon @default-dest @icon-choice))
  104.  
  105. (set @module-dest @default-dest)
  106.  
  107. (set @module-dest
  108.      (askdir
  109.       (prompt "Where would you like the Garshneblanker modules installed? (A directory named Blankers will be "
  110.               "created in the directory you specify and the modules will be put there.)")
  111.       (help "You can put the blankers anywhere and Garshneblanker will look for them there.")
  112.       (default @module-dest)
  113.       )
  114.      )
  115.  
  116. (set blankersDir (tackon @module-dest "Blankers"))
  117. (if (exists blankersDir)
  118.     (run "Delete" (tackon blankersDir "#?") "QUIET" "FORCE")
  119.     )
  120.  
  121. (copyfiles
  122.  (prompt ("Copying Garshneblanker modules to %s" @module-dest))
  123.  (help @copyfiles-help)
  124.  (source (pathonly @icon))
  125.  (dest @module-dest)
  126.  (choices "Blankers")
  127.  )
  128.  
  129. (tooltype
  130.  (dest (tackon @default-dest "Garshneblanker"))
  131.  (settooltype "BLANKERDIR" (tackon @module-dest "Blankers"))
  132.  (noposition)
  133.  )
  134.  
  135. (set BlankKey
  136.      (askstring
  137.       (prompt "What key-combination would you like to use to tell Garshneblanker to immediately blank the screen? "
  138.               "(This key combination can be used after Garshneblanker is running to blank the screen.)")
  139.       (help "When you press this combination of keys, Garshneblanker will tell the current module to blank the "
  140.             "screen. This is a standard Commodities key-combination. This key-combination should be a text string."
  141.             "\n\nExamples:\nAlt Help, Shift F1, Ctrl a")
  142.       (default "Alt Delete")
  143.       )
  144.      )
  145.  
  146. (tooltype
  147.  (dest (tackon @default-dest "Garshneblanker"))
  148.  (settooltype "BLANKKEY" BlankKey)
  149.  )
  150.  
  151. (set TimeOut
  152.      (asknumber
  153.       (prompt "How long should Garshneblanker wait before automatically blanking the screen. (This value is in "
  154.               " seconds.)")
  155.       (help "Garshneblanker will blank the screen if the number of seconds you specify pass without any user "
  156.             "input occurring on your computer.")
  157.       (default 180)
  158.       )
  159.      )
  160.  
  161. (tooltype
  162.  (dest (tackon @default-dest "Garshneblanker"))
  163.  (settooltype "TIMEOUT" ("%ld" TimeOut))
  164.  )
  165.  
  166. (set cxPopKey
  167.      (askstring
  168.       (prompt "What key-combination shall Garshneblanker use to pop up it's "
  169.               "interface? (This key combination can be used after Garshneblanker is "
  170.               "running to bring it's window to front.)")
  171.       (help "This is a standard Commodities key-combination. When you press this combination of keys, "
  172.             "Garshneblanker will open up its preferences window so that you can modify its settings. This "
  173.             "key-combination should be a text string.\n\nExamples:\nAlt Help, Shift F1, Ctrl a")
  174.       (default "Alt Help")
  175.       )
  176.      )
  177.  
  178. (tooltype
  179.  (dest (tackon @default-dest "Garshneblanker"))
  180.  (settooltype "CX_POPKEY" cxPopKey)
  181.  )
  182.  
  183. (if
  184.  (askbool
  185.   (prompt "Would you like Garshneblanker to open its window on startup?")
  186.   (help "This will set the CX_POPUP tooltype to YES or NO depending on your response. This tooltype dictates "
  187.         "whether or not Garshneblanker opens it's window when it first runs.")
  188.   (default 1)
  189.   )
  190.  (
  191.   (set cxPopUp "YES")
  192.   (set popUpMsg "Garshneblanker will automatically bring up its interface after you have run it.")
  193.   )
  194.  (
  195.   (set cxPopUp "NO")
  196.   (set popUpMsg ("Garshneblanker will not automatically bring up its interface after you have run it. You will have to press the %s key-combination to make the interface come up." cxPopKey))
  197.   )
  198.  )
  199.  
  200. (tooltype
  201.  (dest (tackon @default-dest "Garshneblanker"))
  202.  (settooltype "CX_POPUP" cxPopUp)
  203.  )
  204.  
  205. (set oldUserLevel (user 3))
  206. (message
  207.  "\n"
  208.  ("Garshneblanker is now installed in your %s directory. " @default-dest)
  209.  ("You can run it by double clicking on its icon. %s " popUpMsg)
  210.  "\n\nIf you have any questions at all, feel free to contact me via e-mail at:\n\nbaynemd@nextwork.rose-hulman.edu"
  211.  )
  212. (user oldUserLevel)
  213.  
  214. (exit (quiet))